home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / ptv1n2.arc / ATTRTEST.PAS < prev    next >
Pascal/Delphi Source File  |  1990-06-14  |  272b  |  19 lines
  1. PROGRAM AttrTest;
  2.  
  3. USES Crt,Vidpoint;
  4.  
  5. VAR
  6.   B : Byte;
  7.  
  8.  
  9. BEGIN
  10.   ClrScr;
  11.   GotoXY(15,4); Write('I was born on a pirate ship...');
  12.   GotoXY(15,4);
  13.     FOR B := 0 TO 7 DO
  14.       BEGIN
  15.         WriteAttribute(B SHL 4,50);
  16.         Delay(500);
  17.       END;
  18. END.
  19.